home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 6 / Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso / 026a / bbsparse.zip / BBSADD.PRG < prev    next >
Text File  |  1990-08-23  |  3KB  |  112 lines
  1. * Program ...: BbsFiles.PRG
  2. * Author ....: Michael P. Dean
  3. * Date ......: Tue  06-12-1990
  4. * Versions ..: dBASE IV Version 1.1
  5. * Notes .....: Append in Text listing of Available files on BBS
  6.  
  7. * -- Set up Environment and clean out old files list
  8.  
  9. SET TALK off
  10. SET SAFETY off
  11. SET STATUS off
  12. SET CURSOR off
  13. lc_add = .F.
  14. CLEAR
  15. SELECT 1
  16. USE Bbstemp
  17. ZAP
  18. SELECT 2
  19. USE Bbsfiles INDEX file,lib
  20. ZAP
  21. SET SAFETY on
  22. SELECT 1
  23. APPEND FROM files.txt SDF
  24. GO TOP
  25. DO WHILE .NOT. EOF()
  26.   IF "LATEST ADDITIONS" $ files
  27.     lc_add = .T.
  28.     SKIP 5
  29.     DO Latest
  30.     EXIT
  31.   ENDIF
  32.   lc_lib = SUBSTR(files,AT("LIB",files) + 4)
  33.   lc_lib = SUBSTR(lc_lib,1,AT(" ",lc_lib) - 1)
  34.   SKIP 4
  35.   DO WHILE files # "FILE DIRECTORY OF LIB" .AND. .NOT. EOF()
  36.     DECLARE bbs[5]
  37.     ln_curr = 1
  38.     bbs[5] = ALLTRIM(files)
  39.     DO WHILE LEN(bbs[5]) > 0 .AND. ln_curr <= 4 .AND. bbs[5] # "-----"
  40.       IF AT("<REMOVED>",bbs[5]) > 0
  41.         lc_add = .F.
  42.         EXIT
  43.       ENDIF
  44.       IF bbs[5] = "LATEST ADDITIONS"
  45.         lc_add = .T.
  46.         EXIT
  47.       ENDIF
  48.       IF ln_curr = 1 .AND. LEN(bbs[5]) < 16
  49.         EXIT
  50.       ENDIF
  51.       bbs[ln_curr] = IIF(ln_curr # 4, SUBSTR(bbs[5],1,AT(" ",bbs[5]) - 1),;
  52.         bbs[5])
  53.       bbs[5] = IIF(ln_curr # 4, LTRIM(SUBSTR(bbs[5],AT(" ",bbs[5]))), "")
  54.       ln_curr = ln_curr + 1
  55.     ENDDO
  56.     IF lc_add
  57.       EXIT
  58.     ENDIF
  59.     IF TYPE("bbs[3]") # "L"
  60.       SELECT 2
  61.       APPEND BLANK
  62.       REPLACE new WITH "No", filename WITH bbs[1], bytes WITH bbs[2],;
  63.         SOURCE WITH bbs[3], descrip WITH bbs[4], lib WITH lc_lib
  64.       @ 12,30 SAY RECCOUNT()
  65.       SELECT 1
  66.     ENDIF
  67.     SKIP
  68.   ENDDO
  69. ENDDO
  70. SELECT 2
  71. REINDEX
  72. SET TALK on
  73. QUIT
  74.  
  75. * Program ...: Latest
  76. * Date ......: Fri  06-15-1990
  77. * Notes .....: Process the latest additions, as the format is different
  78.  
  79. PROCEDURE Latest
  80. DO WHILE .NOT. EOF()
  81.   DECLARE bbs[6]
  82.   ln_curr = 1
  83.   bbs[6] = ALLTRIM(files)
  84.   DO WHILE LEN(bbs[6]) > 0
  85.     IF ln_curr = 1 .AND. LEN(bbs[6]) < 16
  86.       EXIT
  87.     ENDIF
  88.     IF AT("<REMOVED>",bbs[6]) > 0
  89.       EXIT
  90.     ENDIF
  91.     bbs[ln_curr] = IIF(ln_curr # 5, SUBSTR(bbs[6],1,AT(" ",bbs[6]) - 1),;
  92.       bbs[6])
  93.     bbs[6] = IIF(ln_curr # 5, LTRIM(SUBSTR(bbs[6],AT(" ",bbs[6]))), "")
  94.     ln_curr = ln_curr + 1
  95.   ENDDO
  96.   IF TYPE("bbs[3]") # "L"
  97.     SELECT 2
  98.     APPEND BLANK
  99.     REPLACE new WITH "Yes", lib WITH bbs[1], filename WITH bbs[2],;
  100.       bytes WITH bbs[3], source WITH bbs[4], descrip WITH bbs[5]
  101.     @ 12,30 SAY RECCOUNT()
  102.     SELECT 1
  103.   ENDIF
  104.   SKIP
  105. ENDDO
  106. RETURN
  107.  
  108. * EOP: Latest
  109.  
  110. * EOP: Bbs
  111.  
  112.